home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C/C++ Users Group Library 1996 July
/
C-C++ Users Group Library July 1996.iso
/
vol_200
/
221_01
/
isalpha.asm
< prev
next >
Wrap
Assembly Source File
|
1980-01-01
|
640b
|
56 lines
;small-c V2.3
NAME isalpha
GLOBAL isalpha
isalpha
LDB 3,S
SEX
PSHS D
LDD #97
CMPD ,S++
BLE *+8
LDD #0
JMP cc2 _
LDD #1
LDB 3,S
SEX
PSHS D
LDD #122
CMPD ,S++
BGE *+8
LDD #0
JMP cc2 _
LDD #1
LDD #1
cc2
CMPD #1
LBEQ cc3
LDB 3,S
SEX
PSHS D
LDD #65
CMPD ,S++
BLE *+8
LDD #0
JMP cc4 _
LDD #1
LDB 3,S
SEX
PSHS D
LDD #90
CMPD ,S++
BGE *+8
LDD #0
JMP cc4 _
LDD #1
LDD #1
cc4
CMPD #1
LBEQ cc3
LDD #0
JMP cc5
cc3
LDD #1
cc5
RTS
END